﻿Imports System
Imports System.Data
Imports System.Data.SQLite

    '/ <summary>
'/ The SQLiteDataAccessLayer contains the data access layer for Microsoft SQL Server. 
    '/ This class implements the abstract methods in the DataAccessLayerBaseClass class.
    '/ </summary>
Public Class SqLiteDataAccessLayer
    Inherits DataAccessLayerBaseClass

    ' Provide class constructors
    Public Sub New()
    End Sub

    Public Sub New(ByVal connectionString As String)
        Me.ConnectionString = connectionString
    End Sub

    ' DataAccessLayerBaseClass Members
    Public Overrides Function GetDataProviderConnection() As IDbConnection
        Return New SQLiteConnection
    End Function

    Public Overrides Function GeDataProviderCommand() As IDbCommand
        Return New SQLiteCommand
    End Function

    Public Overrides Function GetDataProviderDataAdapter() As IDbDataAdapter
        Return New SQLiteDataAdapter()
    End Function

End Class
